home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #1 / Ham Radio 2000.iso / ham2000 / packet / p_aa4re / bb212src / turbo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-07-07  |  2.6 KB  |  56 lines
  1. (*===========================================================================*)
  2. (* Turbo pascal control info                                                 *)
  3. (*                                                                           *)
  4. (*   Copyright 1991 by H. Roy Engehausen.  All rights reserved.              *)
  5. (*   This software may be freely distributed and used, but it may not        *)
  6. (*   under any circumstances be sold by anyone other than the author.        *)
  7. (*   It may be distributed by a commercial company as long as it is          *)
  8. (*   for no cost.                                                            *)
  9. (*                                                                           *)
  10. (*===========================================================================*)
  11.  
  12. CONST
  13.   int3f = $3FCD;
  14.  
  15. TYPE
  16.  
  17.   overlay_header = RECORD
  18.                      return_int     : WORD;      (* INT $3F                  *)
  19.                      return_ofs     : WORD;      (* Offset to 1 st return    *)
  20.                      file_ofs       : LONGINT;   (* Offset inside overlay fil*)
  21.                      code_size      : WORD;      (* Size of overlay in paras *)
  22.                      fixup_size     : WORD;      (* Size of fixup in paras   *)
  23.                      entry_count    : WORD;      (* Number of entry points   *)
  24.                      code_list_next : WORD;      (* Segment of next overlay  *)
  25.                      load_segment   : WORD;      (* Address loaded at        *)
  26.                      unused_1       : WORD;      (*                          *)
  27.                      load_list_next : WORD;      (* Segment of next item in  *)
  28.                                                  (* overlay buffer           *)
  29.                      unused_2       : ARRAY [1..5] OF WORD;
  30.                      first_entry    : WORD       (* First entry point data   *)
  31.  
  32.                    END;
  33.  
  34.   stack_frame_type = RECORD
  35.                       next_bp   : WORD;
  36.                       CASE BYTE OF
  37.                         0: (link_ptr : POINTER);
  38.                         1: (link_off  : WORD;
  39.                             link_seg  : WORD);
  40.                     END;
  41.  
  42.   stack_frame_ptr_type = RECORD
  43.                       CASE BYTE OF
  44.                         0: (pnt  : ^stack_frame_type);
  45.                         1: (off  : WORD;
  46.                             seg  : WORD);
  47.                     END;
  48.  
  49.   over_head_type = RECORD
  50.                       CASE byte OF
  51.                         0 : (pnt : ^overlay_header);
  52.                         1 : (off : WORD;
  53.                              seg : WORD);
  54.                     END;
  55.  
  56.